home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 7 / Amiga Format AFCD07 (Dec 1996, Issue 91).iso / serious / shareware / programming / muirexx2.1 / demos / pages.rexx < prev   
OS/2 REXX Batch file  |  1996-04-01  |  2KB  |  67 lines
  1. /* A simple example based on one of the demos supplied with MUI */
  2. options results
  3.  
  4. Selected =                        0x8042654b /* V4  isg BOOL              */
  5. Slider_Level =                    0x8042ae3a /* V4  isg LONG              */
  6.  
  7. TRUE = 1
  8.  
  9. address PAGES
  10.  
  11. window ID PAGE TITLE '"Character Definition"' COMMAND 'quit' PORT PAGES
  12.     group HORIZ
  13.         group
  14.             label SINGLE 'Name:'
  15.             label SINGLE 'Sex:'
  16.         endgroup
  17.         group
  18.             string ID NAME CONTENT 'Frodo'
  19.             cycle ID SEX LABELS 'male,female'
  20.         endgroup
  21.     endgroup
  22.     space 2
  23.     group REGISTER LABELS 'Race,Class,Armor,Level'
  24.         group FRAME
  25.             radio ID RACE LABELS 'Human,Elf,Dwarf,Hobbit,Gnome'
  26.         endgroup
  27.         group FRAME
  28.             radio ID CLAS LABELS 'Warrior,Rogue,Bard,Monk,Magician,Archmage'
  29.         endgroup
  30.         group
  31.             group HORIZ
  32.                 group
  33.                     label SINGLE 'Cloak:'
  34.                     label SINGLE 'Shield:'
  35.                     label SINGLE 'Gloves:'
  36.                     label SINGLE 'Helmet:'
  37.                 endgroup
  38.                 group
  39.                     check ID CHK1 ATTRS Selected TRUE
  40.                     check ID CHK2 ATTRS Selected TRUE
  41.                     check ID CHK3 ATTRS Selected TRUE
  42.                     check ID CHK4 ATTRS Selected TRUE
  43.                 endgroup
  44.             endgroup
  45.         endgroup
  46.         group
  47.             group HORIZ
  48.                 group
  49.                     label DOUBLE 'Experience:'
  50.                     label DOUBLE 'Strength:'
  51.                     label DOUBLE 'Dexterity:'
  52.                     label DOUBLE 'Condition:'
  53.                     label DOUBLE 'Intelligence:'
  54.                 endgroup
  55.                 group
  56.                     slider ATTRS Slider_Level 3
  57.                     slider ATTRS Slider_Level 42
  58.                     slider ATTRS Slider_Level 24
  59.                     slider ATTRS Slider_Level 39
  60.                     slider ATTRS Slider_Level 74
  61.                 endgroup
  62.             endgroup
  63.         endgroup
  64.     endgroup
  65. endwindow
  66. exit
  67.